home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Magazine / Online / QMail / source / qreceipt.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-04-15  |  3.4 KB  |  132 lines
  1. #include "sig.h"
  2. #include "env.h"
  3. #include "substdio.h"
  4. #include "stralloc.h"
  5. #include "subfd.h"
  6. #include "getln.h"
  7. #include "alloc.h"
  8. #include "str.h"
  9. #include "hfield.h"
  10. #include "token822.h"
  11. #include "error.h"
  12. #include "gen_alloc.h"
  13. #include "gen_allocdefs.h"
  14. #include "headerbody.h"
  15. #include "exit.h"
  16. #include "open.h"
  17. #include "quote.h"
  18. #include "qmail.h"
  19.  
  20. void die_noreceipt() { _exit(0); }
  21. void die() { _exit(100); }
  22. void die_temp() { _exit(111); }
  23. void die_nomem() {
  24.  substdio_putsflush(subfderr,"qreceipt: fatal: out of memory\n"); die_temp(); }
  25. void die_fork() {
  26.  substdio_putsflush(subfderr,"qreceipt: fatal: unable to fork\n"); die_temp(); }
  27. void die_qqperm() {
  28.  substdio_putsflush(subfderr,"qreceipt: fatal: permanent qmail-queue error\n"); die(); }
  29. void die_qqtemp() {
  30.  substdio_putsflush(subfderr,"qreceipt: fatal: temporary qmail-queue error\n"); die_temp(); }
  31. void die_usage() {
  32.  substdio_putsflush(subfderr,
  33.  "qreceipt: usage: qreceipt deliveryaddress\n"); die(); }
  34. void die_read() {
  35.  if (errno == error_nomem) die_nomem();
  36.  substdio_putsflush(subfderr,"qreceipt: fatal: read error\n"); die_temp(); }
  37. void doordie(sa,r) stralloc *sa; int r; {
  38.  if (r == 1) return; if (r == -1) die_nomem();
  39.  substdio_putsflush(subfderr,"qreceipt: fatal: unable to parse this: ");
  40.  substdio_putflush(subfderr,sa->s,sa->len); die(); }
  41.  
  42. char *target;
  43.  
  44. int flagreceipt = 0;
  45.  
  46. char *returnpath;
  47. stralloc messageid = {0};
  48. stralloc sanotice = {0};
  49.  
  50. int rwnotice(addr) token822_alloc *addr; { token822_reverse(addr);
  51.  if (token822_unquote(&sanotice,addr) != 1) die_nomem();
  52.  if (sanotice.len == str_len(target))
  53.    if (!str_diffn(sanotice.s,target,sanotice.len))
  54.      flagreceipt = 1;
  55.  token822_reverse(addr); return 1; }
  56.  
  57. struct qmail qqt;
  58.  
  59. stralloc quoted = {0};
  60.  
  61. void finishheader()
  62. {
  63.  if (!flagreceipt) die_noreceipt();
  64.  if (str_equal(returnpath,"")) die_noreceipt();
  65.  if (str_equal(returnpath,"#@[]")) die_noreceipt();
  66.  
  67.  if (!quote2("ed,returnpath)) die_nomem();
  68.  
  69.  if (qmail_open(&qqt) == -1) die_fork();
  70.  
  71.  qmail_puts(&qqt,"From: DELIVERY NOTICE SYSTEM <");
  72.  qmail_put(&qqt,quoted.s,quoted.len);
  73.  qmail_puts(&qqt,">\n");
  74.  qmail_puts(&qqt,"To: <");
  75.  qmail_put(&qqt,quoted.s,quoted.len);
  76.  qmail_puts(&qqt,">\n");
  77.  qmail_puts(&qqt,"Subject: success notice\n\
  78. \n\
  79. Hi! This is the qreceipt program. Your message was delivered to the\n\
  80. following address: ");
  81.  qmail_puts(&qqt,target);
  82.  qmail_puts(&qqt,". Thanks for asking.\n");
  83.  if (messageid.s)
  84.   {
  85.    qmail_puts(&qqt,"Your ");
  86.    qmail_put(&qqt,messageid.s,messageid.len);
  87.   }
  88.  
  89.  qmail_from(&qqt,"");
  90.  qmail_to(&qqt,returnpath);
  91.  
  92.  switch(qmail_close(&qqt))
  93.   {
  94.    case 0: break;
  95.    case QMAIL_TOOLONG: die_qqperm();
  96.    default: die_qqtemp();
  97.   }
  98. }
  99.  
  100. stralloc hfbuf = {0};
  101. token822_alloc hfin = {0};
  102. token822_alloc hfrewrite = {0};
  103. token822_alloc hfaddr = {0};
  104.  
  105. void doheaderfield(h)
  106. stralloc *h;
  107. {
  108.  switch(hfield_known(h->s,h->len))
  109.   {
  110.    case H_MESSAGEID:
  111.      if (!stralloc_copy(&messageid,h)) die_nomem();
  112.      break;
  113.    case H_NOTICEREQUESTEDUPONDELIVERYTO:
  114.      doordie(h,token822_parse(&hfin,h,&hfbuf));
  115.      doordie(h,token822_addrlist(&hfrewrite,&hfaddr,&hfin,rwnotice));
  116.      break;
  117.   }
  118. }
  119.  
  120. void dobody(h) stralloc *h; { ; }
  121.  
  122. void main(argc,argv)
  123. int argc;
  124. char **argv;
  125. {
  126.  sig_pipeignore();
  127.  if (!(target = argv[1])) die_usage();
  128.  if (!(returnpath = env_get("SENDER"))) die_usage();
  129.  if (headerbody(subfdin,doheaderfield,finishheader,dobody) == -1) die_read();
  130.  die_noreceipt();
  131. }
  132.